\version "2.14.2"

% Accordion piece template. To create an accordion piece from this,
% save it as e.g. MyPiece.ly and 
% create MyPieceDefinitions.ly from accTemplateDefinitions.ly.

\header { % adapt title, composer etc. to your piece
    title = "Oh, Susanna"
    composer = "Stephen Forster"
}

\include "accDefinitions.ly"	% these are constant, define e.g. accTremolo

% Melody parts definition per piece, for both layout and MIDI; adapt these
trunk = { fis8-3 a-4 a8. b16-5 | a8 fis d8. e16 | fis8 fis e }

% Melody and chords definition per piece, for both layout and MIDI; adapt these
upperAa = \relative d' { \partial 8 d16-1\accTremolo[(e16-2)] | \trunk d8-1 | e4. d16[(e)] | \break }
chordAa = \chordmode { s8 | d2 | d | d | a | }
upperAb = \relative fis' { \trunk e8 | d4. r8 | \break }
chordAb = \chordmode { d2 | d | d4 a4:7 | d4 d4:7 | }
upperBa = \relative g' { g4-3 g4 | b8-5 b4 b8 | a8-4 a8 fis8-3 d8-1 | e4.-2 d16-1 e | \break }
chordBa = \chordmode { g2 | g | d | a | }
upperBb = \relative fis' { \trunk e8 | d4. \break }
chordBb = \chordmode { d2 | d | d4 a4:7 | d4. \bar "||" }
upper = { \upperAa \upperAb \upperBa \upperBb }
chord = { \chordAa \chordAb \chordBa \chordBb }

text = \lyricmode {
    I came from A -- la -- ba -- ma with my ban -- jo on my knee, I'm 
    goin' to Loui -- si -- a -- na my Su -- san -- na for to see.
    Oh, Su -- san -- na, oh don't you cry for me! For I'm
    goin' to Loui -- si -- a -- na with my ban -- jo on my knee.
}

% layout part: make sure accLayoutDefinitions.ly contains all definitions you need
\include "accLayoutDefinitions.ly"   % should be constant, but make sure it's complete
first = { s8 } % MIDI here needs a \p
\include "Oh Susanna Definitions.ly" % copy this file and edit the copy; rename the included file

\score {
    << %  \new GrandStaff {
        \new PianoStaff <<
            \set PianoStaff.instrumentName = #"Accordion"
            

            \new Staff = "upper" { % adapt key, time if necessary
                \clef treble
                \key d \major
                \time 2/4
                \autoBeamOff
                \new Voice = "one" { \upper }
            }
            \new Lyrics \lyricsto "one" \text

            % RhythmicStaff advantages: chords line closer to bass staff; disadvantage: not PianoStaff brace
        %     \new RhythmicStaff = "lower" {
            % (normal) Staff advantage: PianoStaff brace; disadvantage: distance chords line - bass staff
            \new Staff = "lower" {
                \clef bass
                \autoBeamOff
                \override Staff.Stem #'transparent = ##t  % tell Stem_engraver not to print stems
        %	\override Staff.Beam #'transparent = ##t  % tell Stem_engraver not to print stems
                \override Staff.StaffSymbol #'line-count = 1  % or ledger-line-thickness
                \lower
            }
        >>
        \new ChordNames {
            \override VerticalAxisGroup #'nonstaff-unrelatedstaff-spacing 
                = #'((basic-distance . 0) (minimum-distance . 0) (padding . 0) ( stretchability . 0))
            \set chordChanges = ##t
            \chord
        }
    >>
    \layout { }
}


\include "accMidiDefinitions.ly"
first = { s8\p } % bass usually needs lower volume; for this to work, we need a \p (piano) sign
\include "Oh Susanna Definitions.ly" % rename the included file


\score {
<<
    \new Staff = "upper" { % adapt key, time if necessary
	\clef treble
	\key d \major
	\time 2/4
	\set Staff.midiInstrument = #"accordion"
	\upper
    }
    \new Staff = "lower" {
	\set Staff.midiInstrument = #"accordion"
	\set Staff.midiMinimumVolume = #0.3 % set bass volume
	\set Staff.midiMaximumVolume = #0.6
	\lower
    }
>>
    \midi {
	\context {
	    \Score
	    tempoWholesPerMinute = #(ly:make-moment 120 4) % adapt MIDI tempo
	}
    }
}